10 UN=9
15 REM *GERAETEADRESSE
20 OPEN 15,UN,15 : OPEN 4,UN,4,"#"
25 REM *BEFEHLSKANAL UND DIREKTZUGRIFFSKANAL OEFFNEN
30 FOR SE=0 TO 19
35 REM *SEKTOREN 0 BIS 19 BESCHREIBEN
40 PRINT#15, "U1";4;0;79;SE
45 REM *SEKTOR EINLESEN
50 PRINT#15, "B-P";4;0
55 REM *BUFFER-POINTER AUF BYTE 0 SETZEN
60 PRINT#4, CHR$(SE)
65 REM *MIT DER NUMMER DES SEKTORS UEBERSCHREIBEN
70 PRINT#15, "U2";4;0;79;SE
75 REM *SEKTOR ZURUECKSCHREIBEN
80 NEXT
85 REM *WIEDERHOLEN
90 CLOSE 4 : CLOSE 15
95 REM *BEFEHLSKANAL UND DIREKTZUGRIFFS-DATEI  SCHLIESSEN